perm filename TEST.SOG[LSP,JRA] blob sn#125039 filedate 1974-10-14 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	~TEST FILE FOR SOGM
C00003 ENDMK
CāŠ—;
~TEST FILE FOR SOGM

(DE S_TEST NIL
	(PROG NIL 
	A (PRINT(EVAL (PRINT(LIST @SOGM (LIST @QUOTE(READ)) NIL))))
	   (GO A))
 )


(S_TEST)

NIL

A

@A

(CONS @A @B)

(CONS A @B)

(CONS (EQ X Y) Z)

(CONS (EQ @X @Y) Z)

(CONS (EQ @X @Y) @A)

(COND (EQ @X @Y) Y  Z)

(COND (EQ @X @Y) Y  (CONS @Z @U))

(F A (CONS @A @B))

((LAMBDA(X Y)(CONS X Y)) @A @B)


((LABEL F(LAMBDA(X Y)(CONS X Y))) A B)

((LABEL F(LAMBDA(X)(COND (ATOM X) X (CONS(F(CAR X))(F(CDR X)))))) @(A B))

((LABEL F(LAMBDA(X)(COND (ATOM X) X (CONS(F(CAR X))(F(CDR X))))))  B)